home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / WinClient / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-10-26  |  1.7 KB  |  88 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TfrmMain = class(TForm)
  11.     memTemplate: TMemo;
  12.     Label2: TLabel;
  13.     memVariables: TMemo;
  14.     Label3: TLabel;
  15.     btnGetPage: TButton;
  16.     OpenDialog: TOpenDialog;
  17.     btnLoad: TButton;
  18.     Label1: TLabel;
  19.     edtFilename: TEdit;
  20.     btnSave: TButton;
  21.     Panel1: TPanel;
  22.     memSource: TMemo;
  23.     SaveDialog: TSaveDialog;
  24.     procedure btnLoadClick(Sender: TObject);
  25.     procedure btnGetPageClick(Sender: TObject);
  26.     procedure btnSaveClick(Sender: TObject);
  27.   private
  28.   public
  29.   end;
  30.  
  31. var
  32.   frmMain: TfrmMain;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. uses
  39.   SML_Handler_TLB;
  40.  
  41. procedure TfrmMain.btnLoadClick(Sender: TObject);
  42. begin
  43.   with OpenDialog do
  44.   begin
  45.     if Execute then
  46.     begin
  47.       with memTemplate.Lines do
  48.       begin
  49.         Clear;
  50.         edtFilename.Text := ExtractFilename(Filename);
  51.         LoadFromFile(Filename);
  52.       end;
  53.     end;
  54.   end;
  55. end;
  56.  
  57. procedure TfrmMain.btnGetPageClick(Sender: TObject);
  58. var
  59.   Variables: TStringList;
  60.   PageProducer: SMLHandler;
  61. begin
  62.   Variables := TStringList.Create;
  63.   try
  64.     PageProducer := coSMLHandler.Create;
  65.     try
  66.       Variables.AddStrings(memVariables.Lines);
  67.       Variables.Add('PI:PAGE=' + edtFilename.Text);
  68.       memSource.Lines.Text := PageProducer.GetContent(Variables.CommaText);
  69.     finally
  70.       PageProducer := nil;
  71.     end;
  72.   finally
  73.     Variables.Free;
  74.   end;
  75. end;
  76.  
  77. procedure TfrmMain.btnSaveClick(Sender: TObject);
  78. begin
  79.   with SaveDialog do
  80.   begin
  81.     InitialDir := OpenDialog.InitialDir;
  82.     if Execute then
  83.       memSource.Lines.SaveToFile(Filename);
  84.   end;
  85. end;
  86.  
  87. end.
  88.